home *** CD-ROM | disk | FTP | other *** search
/ PhotoSpin 7: Medical Elements / PhotoSpin 7: Medical Elements - Disc 1.iso / pc / Kick Me / Japanese / ar32j30a.exe / 1033 / FILE / ARCHIVE.Z / ACROBAT / ACRORD32.EXE / PSPROCSET / 6 < prev    next >
Text File  |  1997-11-14  |  12KB  |  752 lines
  1. %%BeginFile: pdftext.prc
  2. %%Copyright: Copyright 1987-1997 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFText 75 dict dup begin put
  4. /initialize { PDFText begin } bd
  5. /terminate { end } bd
  6. /pdf_has_composefont? systemdict /composefont known def
  7. /CopyFont {
  8. {
  9. 1 index /FID ne 2 index /UniqueID ne and
  10. { def } { pop pop } ifelse
  11. } forall
  12. } bd
  13. /Type0CopyFont
  14. {
  15. exch
  16. dup length dict
  17. begin
  18. CopyFont
  19. [
  20. exch
  21. FDepVector
  22. {
  23. dup /FontType get 0 eq
  24. {
  25. 1 index Type0CopyFont
  26. /_pdfType0 exch definefont
  27. }
  28. {
  29. /_pdfBaseFont exch
  30. 2 index exec
  31. }
  32. ifelse
  33. exch
  34. }
  35. forall
  36. pop
  37. ]
  38. /FDepVector exch def
  39. currentdict
  40. end
  41. } bd
  42. /cHexEncoding
  43. [/c00/c01/c02/c03/c04/c05/c06/c07/c08/c09/c0A/c0B/c0C/c0D/c0E/c0F/c10/c11/c12
  44. /c13/c14/c15/c16/c17/c18/c19/c1A/c1B/c1C/c1D/c1E/c1F/c20/c21/c22/c23/c24/c25
  45. /c26/c27/c28/c29/c2A/c2B/c2C/c2D/c2E/c2F/c30/c31/c32/c33/c34/c35/c36/c37/c38
  46. /c39/c3A/c3B/c3C/c3D/c3E/c3F/c40/c41/c42/c43/c44/c45/c46/c47/c48/c49/c4A/c4B
  47. /c4C/c4D/c4E/c4F/c50/c51/c52/c53/c54/c55/c56/c57/c58/c59/c5A/c5B/c5C/c5D/c5E
  48. /c5F/c60/c61/c62/c63/c64/c65/c66/c67/c68/c69/c6A/c6B/c6C/c6D/c6E/c6F/c70/c71
  49. /c72/c73/c74/c75/c76/c77/c78/c79/c7A/c7B/c7C/c7D/c7E/c7F/c80/c81/c82/c83/c84
  50. /c85/c86/c87/c88/c89/c8A/c8B/c8C/c8D/c8E/c8F/c90/c91/c92/c93/c94/c95/c96/c97
  51. /c98/c99/c9A/c9B/c9C/c9D/c9E/c9F/cA0/cA1/cA2/cA3/cA4/cA5/cA6/cA7/cA8/cA9/cAA
  52. /cAB/cAC/cAD/cAE/cAF/cB0/cB1/cB2/cB3/cB4/cB5/cB6/cB7/cB8/cB9/cBA/cBB/cBC/cBD
  53. /cBE/cBF/cC0/cC1/cC2/cC3/cC4/cC5/cC6/cC7/cC8/cC9/cCA/cCB/cCC/cCD/cCE/cCF/cD0
  54. /cD1/cD2/cD3/cD4/cD5/cD6/cD7/cD8/cD9/cDA/cDB/cDC/cDD/cDE/cDF/cE0/cE1/cE2/cE3
  55. /cE4/cE5/cE6/cE7/cE8/cE9/cEA/cEB/cEC/cED/cEE/cEF/cF0/cF1/cF2/cF3/cF4/cF5/cF6
  56. /cF7/cF8/cF9/cFA/cFB/cFC/cFD/cFE/cFF] def
  57. /modEnc {
  58. /_enc xdd
  59. /_icode 0 dd
  60. counttomark 1 sub -1 0
  61. {
  62. index
  63. dup type /nametype eq
  64. {
  65. _enc _icode 3 -1 roll put
  66. _icode 1 add
  67. }
  68. if
  69. /_icode xdd
  70. } for
  71. cleartomark
  72. _enc
  73. } bd
  74. /trEnc {
  75. /_enc xdd
  76. 255 -1 0 {
  77. exch dup -1 eq
  78. { pop /.notdef }
  79. { Encoding exch get }
  80. ifelse
  81. _enc 3 1 roll put
  82. } for
  83. pop
  84. _enc
  85. } bd
  86. /TE {
  87. /_i xdd
  88. StandardEncoding 256 array copy modEnc
  89. _pdfEncodings exch _i exch put
  90. } bd
  91. /TZ
  92. {
  93. /_usePDFEncoding xdd
  94. findfont
  95. dup length 2 add dict
  96. begin
  97. {
  98. 1 index /FID ne { def } { pop pop } ifelse
  99. } forall
  100. /FontName exch def
  101. _usePDFEncoding 0 ge
  102. {
  103. /Encoding _pdfEncodings _usePDFEncoding get def
  104. pop
  105. }
  106. {
  107. _usePDFEncoding -1 eq
  108. {
  109. counttomark 0 eq
  110. { pop }
  111. {
  112. Encoding 256 array copy
  113. modEnc /Encoding exch def
  114. }
  115. ifelse
  116. }
  117. {
  118. 256 array
  119. trEnc /Encoding exch def
  120. }
  121. ifelse
  122. }
  123. ifelse
  124. FontName currentdict
  125. end
  126. definefont pop
  127. }
  128. bd
  129. /Level2?
  130. systemdict /languagelevel known
  131. {systemdict /languagelevel get 2 ge}
  132. {false}
  133. ifelse
  134. def
  135. Level2?
  136. {
  137. /_pdfFontStatus
  138. {
  139. currentglobal exch
  140. /Font resourcestatus
  141. {pop pop true}
  142. {false}
  143. ifelse
  144. exch setglobal
  145. } bd
  146. }
  147. {
  148. /_pdfFontStatusString 50 string def
  149. _pdfFontStatusString 0 (fonts/) putinterval
  150. /_pdfFontStatus
  151. {
  152. FontDirectory 1 index known
  153. { pop true }
  154. {
  155. _pdfFontStatusString 6 42 getinterval
  156. cvs length 6 add
  157. _pdfFontStatusString exch 0 exch getinterval
  158. status
  159. { pop pop pop pop true}
  160. { false }
  161. ifelse
  162. }
  163. ifelse
  164. } bd
  165. }
  166. ifelse
  167. Level2?
  168. {
  169. /_pdfCIDFontStatus
  170. {
  171. /CIDFont /Category resourcestatus
  172. {
  173. pop pop
  174. /CIDFont resourcestatus
  175. {pop pop true}
  176. {false}
  177. ifelse
  178. }
  179. { pop false }
  180. ifelse
  181. } bd
  182. }
  183. if
  184. /_pdfString100 100 string def
  185. /_pdfComposeFontName
  186. {
  187. dup length 1 eq
  188. {
  189. 0 get
  190. 1 index
  191. type /nametype eq
  192. {
  193. _pdfString100 cvs
  194. length dup dup _pdfString100 exch (-) putinterval
  195. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  196. 2 index exch cvs length
  197. add 1 add _pdfString100 exch 0 exch getinterval
  198. exch pop
  199. true
  200. }
  201. {
  202. pop pop
  203. false
  204. }
  205. ifelse
  206. }
  207. {
  208. false
  209. }
  210. ifelse
  211. } bd
  212. pdf_has_composefont?
  213. {
  214. /_pdfComposeFont
  215. {
  216. 1 index /CMap resourcestatus
  217. {pop pop true}
  218. {false}
  219. ifelse
  220. 1 index true exch
  221. {
  222. _pdfCIDFontStatus not
  223. {pop false exit}
  224. if
  225. }
  226. forall
  227. and
  228. { 3 -1 roll pop composefont true}
  229. {
  230. 4 -1 roll pop
  231. _pdfComposeFontName
  232. {
  233. dup _pdfFontStatus
  234. { findfont definefont true }
  235. {
  236. pop
  237. dup _pdfFontStatus
  238. { findfont true }
  239. { pop false }
  240. ifelse
  241. }
  242. ifelse
  243. }
  244. {
  245. dup _pdfFontStatus
  246. { findfont true }
  247. { pop false }
  248. ifelse
  249. }
  250. ifelse
  251. }
  252. ifelse
  253. } bd
  254. }
  255. {
  256. /_pdfComposeFont
  257. {
  258. 4 -1 roll pop
  259. _pdfComposeFontName not
  260. {
  261. dup
  262. }
  263. if
  264. 2 copy _pdfFontStatus
  265. {pop findfont exch pop true}
  266. {
  267. eq
  268. {pop false}
  269. {
  270. dup _pdfFontStatus
  271. {findfont true}
  272. {pop false}
  273. ifelse
  274. }
  275. ifelse
  276. }
  277. ifelse
  278. } bd
  279. }
  280. ifelse
  281. /_pdfFaceByStyleDict 4 dict dup begin
  282. Level2?
  283. {
  284. /Serif
  285. /HeiseiMin-W3-83pv-RKSJ-H _pdfFontStatus
  286. {/HeiseiMin-W3}
  287. {/Ryumin-Light}
  288. ifelse
  289. def
  290. /SansSerif
  291. /HeiseiKakuGo-W5-83pv-RKSJ-H _pdfFontStatus
  292. {/HeiseiKakuGo-W5}
  293. {/GothicBBB-Medium}
  294. ifelse
  295. def
  296. /HeiseiMaruGo-W4-83pv-RKSJ-H _pdfFontStatus
  297. {/HeiseiMaruGo-W4}
  298. {
  299. /Jun101-Light-RKSJ-H _pdfFontStatus
  300. { /Jun101-Light }
  301. { SansSerif }
  302. ifelse
  303. }
  304. ifelse
  305. /RoundSansSerif exch def
  306. /Default Serif def
  307. }
  308. {
  309. /Serif /Ryumin-Light def
  310. /SansSerif /GothicBBB-Medium def
  311. {
  312. (fonts/Jun101-Light-83pv-RKSJ-H) status
  313. }stopped
  314. {pop}{
  315. { pop pop pop pop /Jun101-Light }
  316. { SansSerif }
  317. ifelse
  318. /RoundSansSerif exch def
  319. }ifelse
  320. /Default Serif def
  321. }
  322. ifelse
  323. end
  324. def
  325. /_pdf_Adobe-Japan1-2 (Adobe-Japan1-2) def
  326. /_pdfConcatNames
  327. {
  328. exch
  329. _pdfString100 cvs
  330. length dup dup _pdfString100 exch (-) putinterval
  331. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  332. 3 -1 roll exch cvs length
  333. add 1 add _pdfString100 exch 0 exch getinterval
  334. } bind def
  335. /_pdfSubSetFontByStyleDict 4 dict dup begin
  336. _pdfFaceByStyleDict
  337. {
  338. _pdf_Adobe-Japan1-2 _pdfConcatNames
  339. dup _pdfFontStatus
  340. { def }
  341. { pop pop }
  342. ifelse
  343. }
  344. forall
  345. end def
  346. /TZzero
  347. {
  348. /_fyAdj xdd
  349. /_wmode xdd
  350. /_styleArr xdd
  351. 4 copy
  352. _pdfComposeFont
  353. {exch pop exch pop exch pop}
  354. {
  355. [
  356. 0 1 _styleArr length 1 sub
  357. {
  358. _styleArr exch get
  359. _pdfFaceByStyleDict exch 2 copy known not
  360. { pop /Default }
  361. if
  362. get
  363. }
  364. for
  365. ]
  366. exch pop
  367. 3 index 3 index 4 2 roll
  368. _pdfComposeFont
  369. {exch pop}
  370. {
  371. findfont
  372. }
  373. ifelse
  374. }
  375. ifelse
  376. dup /FontType get 3 eq _wmode 1 eq and
  377. {
  378. _pdfVerticalRomanT3Font dup length 10 add dict copy
  379. begin
  380. /_basefont exch def
  381. /Encoding _basefont /Encoding get def
  382. }
  383. {
  384. dup length 3 add dict
  385. begin
  386. {1 index /FID ne {def}{pop pop} ifelse }
  387. forall
  388. } ifelse
  389. /WMode _wmode def
  390. /BaseLineAdj _fyAdj def
  391. FontType 0 ne
  392. {
  393. /Encoding Encoding dup length array copy dup 16#5c /yen put def
  394. /_fauxfont true def
  395. } if
  396. currentdict
  397. end
  398. definefont pop
  399. }
  400. bd
  401. /swj {
  402. dup 4 1 roll
  403. dup length exch stringwidth
  404. exch 5 -1 roll 3 index mul add
  405. 4 1 roll 3 1 roll mul add
  406. 6 2 roll /_cnt 0 dd
  407. {1 index eq {/_cnt _cnt 1 add dd} if} forall pop
  408. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  409. } bd
  410. /jss {
  411. 4 1 roll
  412. {
  413. 2 npop
  414. (0) exch 2 copy 0 exch put
  415. gsave
  416. 32 eq
  417. {
  418. exch 6 index 6 index 6 index 5 -1 roll widthshow
  419. currentpoint
  420. }
  421. {
  422. false charpath currentpoint
  423. 4 index setmatrix stroke
  424. }
  425. ifelse
  426. grestore
  427. moveto
  428. 2 copy rmoveto
  429. } exch cshow
  430. 6 npop
  431. } def
  432. /jsfTzero {
  433. {
  434. 2 npop
  435. (0) exch 2 copy 0 exch put
  436. exch show
  437. 32 eq
  438. {
  439. 4 index 4 index rmoveto
  440. }
  441. if
  442. 2 copy rmoveto
  443. } exch cshow
  444. 5 npop
  445. } def
  446. /jsp
  447. {
  448. {
  449. 2 npop
  450. (0) exch 2 copy 0 exch put
  451. 32 eq
  452. { exch 5 index 5 index 5 index 5 -1 roll widthshow }
  453. { false charpath }
  454. ifelse
  455. 2 copy rmoveto
  456. } exch cshow
  457. 5 npop
  458. } bd
  459. /trj { _cx 0 fWModeProc 32 _ax 0 fWModeProc 6 5 roll } bd
  460. /pjsf { trj sfc fawidthshowProc } bd
  461. /pjss { trj _ctm ssc jss } bd
  462. /pjsc { trj jsp } bd
  463. /_Tjdef [
  464. /pjsf load
  465. /pjss load
  466. {
  467. dup
  468. currentpoint 3 2 roll
  469. pjsf
  470. newpath moveto
  471. pjss
  472. } bind
  473. {
  474. trj swj rmoveto
  475. } bind
  476. {
  477. dup currentpoint 4 2 roll gsave
  478. pjsf
  479. grestore 3 1 roll moveto
  480. pjsc
  481. } bind
  482. {
  483. dup currentpoint 4 2 roll
  484. currentpoint gsave newpath moveto
  485. pjss
  486. grestore 3 1 roll moveto
  487. pjsc
  488. } bind
  489. {
  490. dup currentpoint 4 2 roll gsave
  491. dup currentpoint 3 2 roll
  492. pjsf
  493. newpath moveto
  494. pjss
  495. grestore 3 1 roll moveto
  496. pjsc
  497. } bind
  498. /pjsc load
  499. ] def
  500. /BT
  501. {
  502. /_inT true dd
  503. _ctm currentmatrix pop matrix _tm copy pop
  504. 0 _rise _baselineadj add translate _hs 1 scale
  505. 0 0 moveto
  506. } bd
  507. /ET
  508. {
  509. /_inT false dd
  510. _tr 3 gt {clip} if
  511. _ctm setmatrix newpath
  512. } bd
  513. /Tr {
  514. _inT { _tr 3 le {currentpoint newpath moveto} if } if
  515. dup /_tr xdd
  516. _Tjdef exch get /_Tj xdd
  517. } bd
  518. /Tj {
  519. userdict /$$copystring 2 index put
  520. _Tj
  521. } bd
  522. /iTm { _ctm setmatrix _tm concat 0 _rise _baselineadj add translate _hs 1 scale } bd
  523. /Tm { _tm astore pop iTm 0 0 moveto } bd
  524. /Td { _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto } bd
  525. /TD { dup /_ld xdd Td } bd
  526. /_nullProc {} bd
  527. /Tf {
  528. dup 1000 div /_fScl xdd
  529. Level2?
  530. { selectfont }
  531. { exch findfont exch scalefont setfont}
  532. ifelse
  533. currentfont dup
  534. /_nullProc exch
  535. /WMode known
  536. {
  537. 1 index /WMode get 1 eq
  538. {pop /exch}
  539. if
  540. }
  541. if
  542. load /fWModeProc xdd
  543. dup
  544. /FontType get 0 eq dup _cx 0 ne and
  545. { /jsfTzero }
  546. { /awidthshow }
  547. ifelse
  548. load /fawidthshowProc xdd
  549. /_fTzero xdd
  550. dup /BaseLineAdj known
  551. { dup /BaseLineAdj get _fScl mul }
  552. { 0 }
  553. ifelse
  554. /_baselineadj xdd
  555. currentpoint iTm moveto
  556. pop
  557. } bd
  558. /TL { neg /_ld xdd } bd
  559. /Tw {
  560. /_cx xdd
  561. _cx 0 ne _fTzero and
  562. { /jsfTzero }
  563. { /awidthshow }
  564. ifelse
  565. load /fawidthshowProc xdd
  566. } bd
  567. /Tc { /_ax xdd } bd
  568. /Ts { /_rise xdd currentpoint iTm moveto } bd
  569. /Tz { 100 div /_hs xdd iTm } bd
  570. /Tk { exch pop _fScl mul neg 0 fWModeProc rmoveto } bd
  571. /T* { 0 _ld Td } bd
  572. /' { T* Tj } bd
  573. /" { exch Tc exch Tw ' } bd
  574. /TJ {
  575. {
  576. dup type /stringtype eq
  577. { Tj }
  578. { 0 exch Tk }
  579. ifelse
  580. } forall
  581. } bd
  582. /T- { _hy Tj } bd
  583. /d0/setcharwidth ld
  584. /d1 { setcachedevice /sfc{}dd /ssc{}dd } bd
  585. /nND {{/.notdef} repeat} bd
  586. /T3Defs {
  587. /BuildChar
  588. {
  589. 1 index /Encoding get exch get
  590. 1 index /BuildGlyph get exec
  591. }
  592. def
  593. /BuildGlyph {
  594. exch begin
  595. GlyphProcs exch get exec
  596. end
  597. } def
  598. } bd
  599. /_pdfBoldRomanWidthProc
  600. {
  601. stringwidth 1 index 0 ne { exch .03 add exch }if setcharwidth
  602. } bd
  603. /_pdfType0WidthProc
  604. {
  605. dup stringwidth 0 0 moveto
  606. 2 index true charpath pathbbox
  607. 0 -1
  608. 7 index 2 div .88
  609. setcachedevice2
  610. pop
  611. } bd
  612. /_pdfBoldBaseFont
  613. 11 dict begin
  614. /FontType 3 def
  615. /FontMatrix[1 0 0 1 0 0]def
  616. /FontBBox[0 0 1 1]def
  617. /Encoding cHexEncoding def
  618. /_setwidthProc /_pdfBoldRomanWidthProc load def
  619. /_bcstr1 1 string def
  620. /BuildChar
  621. {
  622. exch begin
  623. _basefont setfont
  624. _bcstr1 dup 0 4 -1 roll put
  625. dup
  626. _setwidthProc
  627. 0 0 moveto
  628. dup show
  629. _basefonto setfont
  630. 0 0 moveto
  631. show
  632. end
  633. }bd
  634. currentdict
  635. end
  636. def
  637. /_pdfVerticalRomanT3Font
  638. 10 dict begin
  639. /FontType 3 def
  640. /FontMatrix[1 0 0 1 0 0]def
  641. /FontBBox[0 0 1 1]def
  642. /_bcstr1 1 string def
  643. /BuildChar
  644. {
  645. exch begin
  646. _basefont setfont
  647. _bcstr1 dup 0 4 -1 roll put
  648. dup
  649. _pdfType0WidthProc
  650. 0 0 moveto
  651. show
  652. end
  653. }bd
  654. currentdict
  655. end
  656. def
  657. /MakeBoldFont
  658. {
  659. dup dup length 3 add dict
  660. begin
  661. CopyFont
  662. /PaintType 2 def
  663. /StrokeWidth .03 0 FontMatrix idtransform pop def
  664. /dummybold currentdict
  665. end
  666. definefont
  667. _pdfBoldBaseFont dup length 3 add dict copy begin
  668. /_basefont exch def
  669. /_basefonto exch def
  670. currentdict
  671. end
  672. definefont
  673. } bd
  674. /MakeBold {
  675. exch 1 index findfont dup
  676. /FontType get 0 eq
  677. {
  678. _pdfBoldBaseFont /_setwidthProc /_pdfType0WidthProc load put
  679. {MakeBoldFont} Type0CopyFont definefont
  680. }
  681. {
  682. dup /_fauxfont known not
  683. {
  684. _pdfBoldBaseFont /_setwidthProc /_pdfBoldRomanWidthProc load put
  685. MakeBoldFont
  686. }
  687. {
  688. 2 index 2 index eq
  689. { exch pop }
  690. {
  691. dup length dict begin
  692. CopyFont
  693. currentdict
  694. end
  695. definefont
  696. }
  697. ifelse
  698. }
  699. ifelse
  700. }
  701. ifelse
  702. pop pop
  703. }bd
  704. /MakeItalic {
  705. findfont
  706. dup /FontType get 0 eq Level2? not and
  707. { dup /FMapType get 6 eq }
  708. { false }
  709. ifelse
  710. {
  711. dup /WMode 2 copy known
  712. {
  713. get 1 eq
  714. { _italMtx_WMode1Type0 }
  715. { _italMtxType0 }
  716. ifelse
  717. }
  718. { pop pop _italMtxType0 }
  719. ifelse
  720. }
  721. {
  722. dup /WMode 2 copy known
  723. {
  724. get 1 eq
  725. { _italMtx_WMode1 }
  726. { _italMtx }
  727. ifelse
  728. }
  729. { pop pop _italMtx }
  730. ifelse
  731. }
  732. ifelse
  733. makefont
  734. Level2? not
  735. {
  736. dup length dict begin
  737. CopyFont
  738. currentdict
  739. end
  740. }
  741. if
  742. definefont pop
  743. }bd
  744. /MakeBoldItalic {
  745. /dummybold exch
  746. MakeBold
  747. /dummybold
  748. MakeItalic
  749. }bd
  750. currentdict readonly pop end
  751. %%EndFile
  752.